home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / tarfnt21.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-04  |  3KB  |  103 lines

  1. /* TarFront installation */
  2.  
  3. parse arg path language
  4.  
  5. if (path='' | language='' | \(language='e' | language='d')) then do
  6.   say 'Usage: install <target-directory> <language>'
  7.   say '<language> may be d (German) or e (English).'
  8.   say 'Example: install c:\TarFront e'
  9.   say ''
  10.   say 'Aufruf: install <zielverzeichnis> <sprache>'
  11.   say '<sprache> kann entweder d (Deutsch) oder e (Englisch) sein.'
  12.   say 'Beispiel: install c:\TarFront d'
  13.   exit
  14. end
  15.  
  16. do while (right(path,1)='\')
  17.   path=left(path,length(path)-1)
  18. end
  19.  
  20. if (language='d') then do
  21.   copying='Kopiere Dateien nach "'path'".'
  22.   installing='Installiere WPS-Objekte.'
  23.   folderok='TarFront-Ordner installiert.'
  24.   foldernotok='TarFront-Ordner nicht installiert.'
  25.   objectsnotok='TarFront-Objekte nicht installiert.'
  26.   everythingok1='Fertig. Zum Starten bitte "TarFront.exe <INI-Datei>" oder'
  27.   everythingok2='die WPS-Objekte verwenden.'
  28.   tarfrontdoc='TarFront Dokumentation'
  29.   langlong='deutsch'
  30.  
  31.   say 'Leider ist die Online-Dokumentation, im Gegensatz zum restlichen Programm,'
  32.   say 'noch nicht eingedeutscht.'
  33.   say ''
  34. end
  35.  
  36. if (language='e') then do
  37.   copying='Copying files to "'path'".'
  38.   installing='Installing WPS objects.'
  39.   folderok='TarFront Folder installed.'
  40.   foldernotok='TarFront Folder not installed.'
  41.   objectsnotok='TarFront objects not installed.'
  42.   everythingok1='Installation OK. To run TarFront, use "TarFront.exe <INI file>" or'
  43.   everythingok2='the WPS objects.'
  44.   tarfrontdoc='TarFront Documentation'
  45.   langlong='english'
  46. end
  47.  
  48. Say copying
  49.  
  50. '@xcopy TarFront.exe 'path'\ > nul'
  51. curdir=directory()
  52. neudir=directory(path)
  53. call directory(curdir)
  54. path=neudir
  55. '@xcopy TarFront.inf 'path'\ > nul'
  56. '@xcopy TarFront.ico 'path'\ > nul'
  57. '@xcopy TarFront.tfn 'path'\ > nul'
  58. '@xcopy TarFront.hlp 'path'\ > nul'
  59. '@xcopy NoteBook.dll 'path'\ > nul'
  60. '@xcopy deutsch.dll 'path'\ > nul'
  61. '@xcopy dir.dll 'path'\ > nul'
  62. '@xcopy english.dll 'path'\ > nul'
  63. '@xcopy frame.dll 'path'\ > nul'
  64. '@xcopy misc.dll 'path'\ > nul'
  65. '@xcopy runtime.dll 'path'\ > nul'
  66. '@xcopy cppoor3u.dll 'path'\ > nul'
  67. '@copy 'langlong'.dll 'path'\resource.dll > nul'
  68.  
  69. tarfrontver='TarFront 2.1'
  70. folder='<TarFront21_Folder>'
  71. template='TarFront.tfn'
  72. exe='EXENAME='path'\TarFront.exe;STARTUPDIR='path';ASSOCFILTER=*.tfn'
  73. view=path'\TarFront.inf'
  74. ini=path'\TarFront.tfn'
  75. icon=path'\TarFront.ico'
  76.  
  77. Say installing
  78.  
  79. call RxFuncAdd "SysLoadFuncs", "rexxutil", "SysLoadFuncs"
  80. call SysLoadFuncs
  81.  
  82. if (\(SysCreateObject("WPFolder",tarfrontver,"<WP_DESKTOP>",,
  83.                       "OBJECTID="folder,"update")))
  84. then do
  85.   say foldernotok
  86.   exit
  87. end
  88.  
  89. if (SysCreateObject("WPProgram",tarfrontver,folder,exe,"update") &,
  90.     SysCreateObject("WPProgram",tarfrontdoc,folder,,
  91.                     "EXENAME=view.exe;PARAMETERS="path"\TarFront.inf","update") &,
  92.     SysCreateObject("WPDataFile",template,folder,"TEMPLATE=yes;TYPE="assoctype,"update"))
  93. then do
  94.   say everythingok1
  95.   say everythingok2
  96.   exit
  97. end
  98.  
  99. say foldernotok
  100. exit
  101.  
  102.  
  103.